home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / telecomm / vt100emu.lzh / ABLAGE / MINITERM.LST < prev    next >
Encoding:
File List  |  1994-07-21  |  3.6 KB  |  96 lines
  1. ' Demonstration der VT100-Emulation aus einem Terminalprogramm
  2. ' (c) Markus Hoffmann
  3. ' Vorher VT100EMU.PRG installieren !!
  4. '
  5. ' Das Programm ist ein Mini-Terminalprogramm, was Daten von der Modem-Schnitt-
  6. ' stelle anzeigt...
  7. PRINT CHR$(27);"c";    ! RESET
  8. PRINT CHR$(27);"[2J";CHR$(27);"[H";CHR$(27);"e";
  9. PRINT CHR$(16);
  10. @ansi.dbox(1,1,50,3)
  11. PRINT "H       MINI-TERM (c) Markus Hoffmann        "
  12. PRINT "H              V. 2.00    1993      "
  13. @ansi.dbox(65,1,12,3)
  14. PRINT "9H"+TIME$
  15. PRINT "7H"+DATE$
  16. PRINT "H"+STRING$(80,CHR$(196))
  17. PRINT CHR$(27);"[4m";"Baudrate einstellen:";CHR$(27);"[m"
  18. PRINT
  19. PRINT "  1 = 19200 Baud"
  20. PRINT "  2 =  9600 Baud"
  21. PRINT "  3 =  4800 Baud"
  22. PRINT "  4 =  2400 Baud"
  23. PRINT "  5 =  1200 Baud"
  24. PRINT "  6 =   600 Baud"
  25. PRINT "  9 =   300 Baud"
  26. PRINT
  27. WHILE b=0
  28.   PRINT "Ihre Wahl: ";
  29.   b=VAL(CHR$(INP(2)))
  30.   PRINT b
  31. WEND
  32. PRINT "Es werden die Parameter 8N1 eingestellt."
  33. ~XBIOS(15,b,0,136,-1,-1,-1)
  34. PRINT CHR$(27);"[5m";
  35. PRINT CHR$(27);"[6;1H";CHR$(27);"[0J";"Programmabbruch mit einer Maustaste."'"SCREENDUMP mit SHIFT-SHIFT."
  36. PRINT CHR$(27);"[m";
  37. PRINT CHR$(27);"[3;56H";CHR$(27);"[7m";"ONLINE";CHR$(27);"[m"
  38. PRINT CHR$(27);"[10;1H";CHR$(27);"[4m";STRING$(80," ");
  39. PRINT CHR$(27);"[m"
  40. DO
  41.   IF BIOS(11,L:-1) MOD 16=3      ! SHIFT-SHIFT
  42.     PRINT CHR$(27);"[0i";        ! Screendump
  43.     REPEAT
  44.     UNTIL BIOS(11,L:-1) MOD 16<>3
  45.   ENDIF
  46.   EXIT IF MOUSEK                 ! Abbruch bei Maustaste
  47.   st&=INP?(5)
  48.   IF st&=-1                      ! Messages vom Terminal
  49.     OUT 1,INP(5)                 ! nach AUX: weiterleiten
  50.   ELSE IF st&<>0                 ! Wird nicht -1 geliefert bei INP?(5)
  51.     IF INP?(2)                   ! sondern z.B. $fc0030 bei TOS 1.4
  52.       OUT 1,INP(2)               ! So unterstuetzt die Emulation keine
  53.     ENDIF                        ! Tastatur und es wird über Standart eingelesen
  54.   ENDIF
  55.   IF INP?(1)                     ! Alles was von AUX: kommt auf
  56.     OUT 2,INP(1)                 ! Bildschirm anzeigen
  57.   ENDIF
  58. LOOP
  59. PRINT CHR$(27);"c";CHR$(27);"[2J";    ! RESET
  60. END
  61. > PROCEDURE ansi.dframe(x&,y&,w&,h&)
  62.   LOCAL i&
  63.   PRINT CHR$(27);"["+STR$(y&)+";"+STR$(x&)+"H";CHR$(201);STRING$(w&,CHR$(205));CHR$(187);
  64.   FOR i&=1 TO h&
  65.     PRINT CHR$(27);"["+STR$(y&+i&)+";"+STR$(x&)+"H";CHR$(186);
  66.     PRINT CHR$(27);"["+STR$(y&+i&)+";"+STR$(x&+w&+1)+"H";CHR$(186);
  67.   NEXT i&
  68.   PRINT CHR$(27);"["+STR$(y&+h&)+";"+STR$(x&)+"H";CHR$(200);STRING$(w&,CHR$(205));CHR$(188);
  69. RETURN
  70. > PROCEDURE ansi.dbox(x&,y&,w&,h&)
  71.   LOCAL i&
  72.   PRINT CHR$(27);"["+STR$(y&)+";"+STR$(x&)+"H";CHR$(201);STRING$(w&,CHR$(205));CHR$(187);
  73.   FOR i&=1 TO h&
  74.     PRINT CHR$(27);"["+STR$(y&+i&)+";"+STR$(x&)+"H";CHR$(186);
  75.     PRINT STRING$(w&," ");CHR$(186);
  76.   NEXT i&
  77.   PRINT CHR$(27);"["+STR$(y&+h&)+";"+STR$(x&)+"H";CHR$(200);STRING$(w&,CHR$(205));CHR$(188);
  78. RETURN
  79. > PROCEDURE ansi.frame(x&,y&,w&,h&)
  80.   LOCAL i&
  81.   PRINT ""+STR$(y&)+";"+STR$(x&)+"H";CHR$(218);STRING$(w&,CHR$(196));CHR$(191);
  82.   FOR i&=1 TO h&
  83.     PRINT CHR$(27);"["+STR$(y&+i&)+";"+STR$(x&)+"H";CHR$(179);
  84.     PRINT CHR$(27);"["+STR$(y&+i&)+";"+STR$(x&+w&+1)+"H";CHR$(179);
  85.   NEXT i&
  86.   PRINT CHR$(27);"["+STR$(y&+h&)+";"+STR$(x&)+"H";CHR$(192);STRING$(w&,CHR$(196));CHR$(217);
  87. RETURN
  88. > PROCEDURE ansi.box(x&,y&,w&,h&)
  89.   PRINT CHR$(27);"["+STR$(y&)+";"+STR$(x&)+"H";CHR$(218);STRING$(w&,CHR$(196));CHR$(191);
  90.   FOR i&=1 TO h&
  91.     PRINT CHR$(27);"["+STR$(y&+i&)+";"+STR$(x&)+"H";CHR$(179);
  92.     PRINT STRING$(w&," ");CHR$(179);
  93.   NEXT i&
  94.   PRINT CHR$(27);"["+STR$(y&+h&)+";"+STR$(x&)+"H";CHR$(192);STRING$(w&,CHR$(196));CHR$(217);
  95. RETURN
  96.